home *** CD-ROM | disk | FTP | other *** search
/ WINMX Assorted Textfiles / Ebooks.tar / Text - Mathematics - Numerical Mathematics and Computing (F).zip / testra.f < prev    next >
Text File  |  2002-06-11  |  791b  |  34 lines
  1. C
  2. C PAGE 338: NUMERICAL MATHEMATICS AND COMPUTING, CHENEY/KINCAID, 1985
  3. C
  4. C FILE: TESTRA.FOR
  5. C
  6. C COARSE CHECK ON THE RANDOM-NUMBER GENERATOR (RANDOM)
  7. C
  8.       DIMENSION  A(5,5)     
  9.       DATA  NPTS/16000/ 
  10.       DO 3 I = 1,5
  11.         L = I*256 
  12.         N = 1000  
  13.         J = 1     
  14.         M = 0     
  15.         DO 2 K = 1,NPTS     
  16.           IF(RANDOM(L) .LE. 0.5)  M = M + 1     
  17.           IF(K .EQ. N)  THEN
  18.             A(I,J) = 100.0*REAL(M)/REAL(N)      
  19.             N = 2*N 
  20.             J = J + 1       
  21.           END IF  
  22.    2    CONTINUE  
  23.    3  CONTINUE    
  24.       PRINT 4,((A(I,J),J = 1,5),I = 1,5)
  25.    4  FORMAT(5X,5F6.1)      
  26.       STOP
  27.       END 
  28.   
  29.       FUNCTION RANDOM(L)
  30.       L = MOD(16807*L,2147483647)
  31.       RANDOM = REAL(L)*4.6566128752458E-10      
  32.       RETURN
  33.       END 
  34.